home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 66 / Tiger_Disk_066_19xx_Tiger-Crew-Disk_de_Side_B.d64 / define keys (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  57 lines
  1. 5 ifpeek(767)=2thenpoke767,0:run270
  2. 10 poke53281,12:poke53280,14:printchr$(147):poke767,2
  3. 20 print"make changes then  run again":fori=1to1500:next
  4. 30 list 50-255
  5. 40 :
  6. 50 rem use ( +chr$(34) )to add a quote
  7. 60 rem keys f1,f3,f5,f7
  8. 70 key$(1)="save"+chr$(34)+"0:"
  9. 80 key$(2)="@$0_"
  10. 90 key$(3)="find/"
  11. 100 key$(4)="list"
  12. 110 rem  shift with keys f1,f3,f5,f7
  13. 120 key$(5)="change@"
  14. 130 key$(6)="mon_"
  15. 140 key$(7)="drx_"
  16. 150 key$(8)="hcopy_"
  17. 160 rem  logo with keys f1,f3,f5,f7
  18. 170 key$(9)="open1,4,1_"
  19. 180 key$(10)="open1,4_"
  20. 190 key$(11)="cmd1:list"
  21. 200 key$(12)="p[210]1:cl[207]1_"
  22. 210 rem  ctrl with keys f1,f3,f5,f7
  23. 220 key$(13)="color12,12,11_"
  24. 230 key$(14)="p[210]1,c[200](29)"
  25. 240 key$(15)="p[210]1,c[200](27)c[200](27)c[200](56)
  26. 250 key$(16)[178]"p(NULL)1,cleft$(27)"[170][199](34)[170]"f"[170][199](34)[170]"cleft$(66)"
  27. 260 [142]
  28. 270 [134] key$(16):[141]70:a[178].:b[178].:c[178].:[153]"loadcalculating command lengths
  29. 280 fori=1to8:a=len(key$(i)):ifa>10thenprint"key$("i" ) is longer than 10":stop
  30. 290 ifright$(key$(i),1)<>"_"thenc=c+1
  31. 300 b=b+a:next
  32. 310 fori=9to16:a=len(key$(i))
  33. 320 ifa>40thenprint"key$("i" ) is longer than 40":stop
  34. 330 ifright$(key$(i),1)<>"_"thenc=c+1
  35. 340 c=c+a:next:ifc+b<255then360
  36. 350 print"total characters cannot exceed 254":print"you're"b+c-254" over
  37. 360 [153]"ok!":[153]"storing data...":[153]"key#:
  38. 370 v=50792:d=50809:x=.:fora=1to16:pokev+a,x:printa
  39. 380 fori=1tolen(key$(a)):poked,asc(mid$(key$(a),i,1))
  40. 390 d=d+1:x=x+1:next
  41. 400 ifa<9thenifpeek(d-1)=95thenpoked-1,13
  42. 405 ifa>9thenifpeek(d-1)=95thennext
  43. 410 poked,.:d=d+1:x=x+1
  44. 420 next
  45. 430 s=50430:e=s+636:rem start and end address
  46. 450 input"save new copy of keys";y$
  47. 455 ify$<>"y"then end
  48. 460 print"insert disk with 3 blocks or more into  drive 8
  49. 465 [133]"filename";f$:f$[178]"0:"[170]f$
  50. 470 f1$[178]f$:sp[178][194](53)[170]256[172][194](54)[171][195](f1$)
  51. 480 [151]782,sp[173]256:[151]781,sp[171][194](782)[172]256:[151]780,[195](f1$):[158]65469
  52. 490 [151]780,2:[151]781,8:[151]782,2:[158]65466
  53. 500 [151]253,s[173]256:[151]252,s[171][194](253)[172]256:[151]780,252
  54. 510 [151]782,e[173]256:[151]781,e[171][194](782)[172]256:[158]65496
  55. 520 [159]1,8,15:[132]1,en,em$,t$,s$:[153]en;em$,t$,s$:[158]65511:[139]en[167]430
  56. 530 [153]"done!"
  57.